Form1
AVisual BASIC - A Graphics Printing Powerhouse / M. Covington 1991
Form1
Picture1
Command1
Print Directly
Command2
Create a Bitmap
Command3
Create a BIG bitmap
Command4
Send Codes to Printer
Command1_Click
Form_Click
MousePointer
ScreenY
printer8
	ScaleMode
Picture1_Click
Picture1
CurrentY
CurrentX
	LineWidth
	DrawWidth
DrawPicturee
Command2_Click
AutoRedraw
Image
	SaveImage
Command3_Click
AutoResize%
AutoSize
ScaleHeightD
Height
WidthR
FontSize
Command4_Click
PrintDirectly_Click
FINISHED
Techniques
printed
resolution
Command1_Click
 "PRINT DIRECTLY" BUTTON
 Uses Visual BASIC commands to plot circles anda
 lines directly on the printer.p
 HOURGLASS CURSOR
 SCALE IN INCHES
Plotting on printer...u
 DRAW CIRCLES
333333
 DRAW LISSAJOUS FIGURE
PC Techniques"
 PRINT LABEL
ffffff
Spooling output...u
 CLOSE PRINTER
Finishedu
 NORMAL CURSOR
Command2_Click
 "CREATE A BITMAP" BUTTON
 Creates an image on a bitmap file which can be 
 manipulated and printed with Windows Paintbrush.
 HOURGLASS CURSOR
 SCALE IN INCHES
 IT'S A BITMAP PICTURE
 DRAW CIRCLES
333333
 DRAW LISSAJOUS FIGURE
PC Techniques"
 PRINT LABEL
ffffff
EXAMPLE1.BMP
 NORMAL CURSOR
Command3_Click
 "CREATE A BIG BITMAP" BUTTON
 Creates a bitmap that is allegedly 12 x 12 inches.e
 But Windows Paintbrush can "use printer resolution"
 and make it 300 dpi, about 4 x 4 inches.3
 HOURGLASS CURSORE
 SCALE IN INCHES
 IT'S A BITMAP PICTURE
 in twips!
 Picture1 is bigger than the screen.
 No problem.
 DRAW CIRCLES
ffffff
 DRAW LISSAJOUS FIGURE
PC Techniques"
 PRINT LABEL
EXAMPLE2.BMP
 NORMAL CURSOR
Command4_Click
 "SEND CODES TO PRINTER" BUTTONP
Sending codes directly to printer,u
which had better be LaserJet-II compatible!"u
 Constructs LaserJet codes and sends to printer.
 For brevity, this does NOT draw the same patterne
 as the other three procedures.e
 HOURGLASS CURSOR
 OPEN PRINTER AS FILEP
 PRINT SOME RECTANGLES
 Position to column i, row i...t
 Print a 50 x 100 rectangle with shading depending on i...
*c50ac100bt
g2P"t
*p700y100Xt
 POSITION PRINT CURSOR
PC Techniques"u
 PRINT LABEL
 FORM FEED
 CLOSE PRINTER
 NORMAL CURSOR